home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmtr.dir / Internal_6_userB.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  1.3 KB  |  62 lines
  1. property meSprite, firstPos, origPos, mPos, originLocZ, meMoving
  2. global gmObject
  3.  
  4. on beginSprite me
  5.   meMoving = 0
  6.   gmObject.reportUser(me.spriteNum)
  7.   meSprite = sprite(me.spriteNum)
  8.   originLocZ = meSprite.locZ
  9.   firstPos = meSprite.loc
  10. end
  11.  
  12. on mouseDown me
  13.   if (gmObject.moveDimeCounter < 3) and (meSprite.loc <> firstPos) then
  14.     exit
  15.   else
  16.     if (gmObject.moveCounter = 0) and (gmObject.whosNext = 0) then
  17.       gmObject.whosNext = 1
  18.     end if
  19.     if gmObject.whosNext = 1 then
  20.       meMoving = 1
  21.       meSprite.locZ = 155
  22.       origPos = meSprite.loc
  23.       mPos = the mouseLoc - origPos
  24.       repeat while the mouseDown
  25.         meSprite.loc = the mouseLoc - mPos
  26.         updateStage()
  27.       end repeat
  28.     end if
  29.   end if
  30. end
  31.  
  32. on mouseUp me
  33.   if meMoving = 1 then
  34.     meMoving = 0
  35.     if gmObject.whosNext = 1 then
  36.       if the frameLabel <> "play" then
  37.         go("play")
  38.       end if
  39.       gmObject.reportUserMove(me.spriteNum, meSprite.rect, origPos)
  40.       meSprite.locZ = originLocZ
  41.     end if
  42.   end if
  43. end
  44.  
  45. on mouseEnter me
  46.   if (gmObject.moveDimeCounter < 3) and (meSprite.loc = firstPos) then
  47.     cursor([500, 501])
  48.   else
  49.     if gmObject.whosNext = 1 then
  50.       cursor([500, 501])
  51.     end if
  52.   end if
  53. end
  54.  
  55. on mouseLeave me
  56.   cursor(0)
  57. end
  58.  
  59. on endSprite me
  60.   cursor(0)
  61. end
  62.